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SHACK KKH TASHA REHEAT ARER EAE 


; SYSTEM MACRO CALLS = DEFINE XADRIVER CHARACTERISTICS BITS 


SXADEF 
; LOCAL SYMBOLS 
-PSECT XADATA,LONG 


CHANA: .LONG 0 3; CELL TO STORE CHANNEL NUMBER 
10S8: .BLKQ 1 ; 10SB FOR Q 
CHAR_BUF: .LONG 80,INFO 3; DEVICE ete BUFFER DESCR 
LENGTH: .LONG 0 5 AND L 
INFO:  .LONG : CHARACTERISTICS MBUFFER 
CHAR: -LONG QO 
DEVDEPEND: .LONG 0 
-BLKL 20 
-PSECT XACODE,NOWRT 
ENTRY XALINK,“M<R2,R3,R4,R5> 
a MOVL 4 (AP) ,W*CHANA ; GET CHANNEL NUMBER 


} 

PROGRAM TO CHANGE DR11W DRIVER FOR LINK MODE 
| $GETCHN_S CHAN=W*CHANA,- ; GET CHANNEL INFORMATION 
| 
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PRIBUF =W*CHAR_BUF ,= S$ 
PRILEN=W*LENGTH | + 
BLBS RO,40$ | 
408 RET | 
BISL aXASm LINK. W“DEVDEPEND ; SET LINK MODE STATUS BIT | ! 
$Q10_S CHAN=0*C : WRITE CHARACTERISTICS 
FUNC=# os ASE CHAR, - | 
EFN= #1 
10SB= <u" fose, - 
| Pi=w*CH 
BLBS RO,50$ 
RET 
50$: 
MOVZWL wW*I0SB,RO 
RET 
END 


AH-BT13A-SE DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONFIDENTIAL AND PROPRIETARY 


0138 


